B 13 


i cee eet eel al en a Ne Oe Oe Oe oe 
et ee eal eel eet ace a ee ed oe oe oa oe oe coe ea 
ee eel cel eel eel ae oN ee ce oe ce oe oe ee 


— os 
—— 
— 
SG Gd a ag as Gs ns Os OG OG Od Og Og Beg Og ng Og 
SF Ek ad ng ag ng a a nd Og nd Og Og Og Og Og Og Og eg 
FS OS OS ak Ok a ak Od nd Od nd Od nd Od Od Od Od Og Og 


— ee 
ee 
-——— 
OS Ok Ok nk Od Od Od Od Od Od Od Od Od Od Od Od Od Og Og On 
SS kk Ok kd Od Od Ok Od Od Od On Od Od Od Od Od og eg 
SS 8 dk OS OS OS Od Od OE Od Od Od OS Bd Od Od Og Og Og 
— 
“es 
— os 


**F I LE**1D**INIDSK 


a at we af ot ee oe 
we oe ss 4 
4 se  4 
a 4 a 4 
a 4 
Ss 4 
Te 4 
wo et 
nef af be Oe Oe Oe Oe Oe Oe Oe Oe a Oe 
ef be be Oe Oe Oe Oe Os OA Oa Oa Os 
nn MMMM 
mw MNNMMWM 
mw mw nn 
mn nm mw 
nn wn vn 
nn nwnwn mw 
mn mw nw 
nn nn mw 
MWMWNn nw 
MWWMnnw mn 
anaonancnaannaa 
aanoaoocaocnaaa 
aa aa 
aa aa 
aa aa 
aa aa 
aa aa 
aa aa 
Aaa aaaanaaanaaaka 
Sanaa aGh Aa ACaAanaaaaao 
“nw WMMnw 
nn Mnnn 
os ent nw nw “nn 
—— ot mown nw nn 
Bde ey Ed ny ot nn nn “nn 
nd Og OE ad nd Od dR mw nn “wn 
pot Sean nn nn “nn 
eet loon leend mn mn nn 
YNMNw nn 
MMM nn 
2222222 222 
5255255255 SES2 
F 4 ot —— 
io kent 
ss Nd nd Oa Od Od Ong Od ng Dad Deg Og Og Dd 
dk a Od 8 Od ad Og Oy ad ng ed Od 
=z om es 
zzzze 22222 — 5 
55555555 ESEEE= 
sao 
sda4 
—T) ety =| 
—T) Cooke) a od 
eg gt sd dt a ad 
ON Ee EE ed Og Od dd = | 
nt Ot te a4 
—— tee aa 
id od I od od I Oo I I I OI I 
ee ee rr 


0-7 
T.$ 


On 


0-74 
IT.SR 


Page 1) 
JINIDSK.B32;1 (1) | 
MODULE INIDSK ( 
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BEGIN 


' 
SRR RARER AEA AEA AAA AE REAR AEA AAA A AAA AAA AAAEEAEAREEAEEREEN EE 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY : 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
iw ALL RIGHTS RESERVED. 


tt THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
tt ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE wr a 


® 

® 

te 

® 

te 

*® 

® 

i C OF TWARE ER 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
® 

ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® 

® 

® 

® 

® 

® 

*® 

* 


!# AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!* CORPORATION. 


!® DIGITAL ASSUMES NO RESPONSIB 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
!t SOFTWARE ON EQUIPMENT WHICH IS 


NOT SUPPLIED BY DIGITAL. 
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3 3 ' 

; 3 FACILITY: INIT Utility Structure Level 1 

3 035 ! ABSTRACT: 

3 036 ! 

3 aH : This routine contains the main level logic to initialize a disk. 
i 0039 ' ENVIRONMENT: 

4 0040 ! 

4 0041 : STARLET operating system, including privileged system services 
4 B2§ ! and internal exec routines. 

4 004 ! 

4 Bee lew 

4 045 $ 

4 0046 ! 

: Open : AUTHOR: Andrew C. Goldstein, CREATION DATE: 9-Nov-1977 79:29 

¢ 0949 MODIFIED BY: 

5 0081 : v03-004 MCNO140 Maria del C. Nasr 30-Nov-1983 

5 Bbeg ! As part of the new cul interface change eliminate 

5 B07 RECORD_PROT processing since that qua ifier was not implemented. 
2 0055 ! v03-003 CWH3003 CW Hobbs 7-0c t-1983 

; B838 Perform an IO$_AVAILABLE function to undo the I0$_PACKACK. 


16- se-1984 91:46: 36 VAX-11 Bliss=-32 V4.0-742 Page 2 


-Sep-19 DISKSVMSMASTER: CINIT.SRCJINIDSK.832;1 (1) 
3 38 038 1! v03-002 $TJ3090 Stev Jeffreys, 25-Apr-1983 
; 26 0 : } Add support for /LNO ERASE” 
3; 661 ef 1! v03-001 ACG0283 Andrew C. Goldstein A iit 14:09 
‘= 06¢ ii Disable bad block processing gn MSCP d 
; 065 1! Limit ODS-1 max files to 6550 
; @& 064 1! 
; 065 1! 
; ¢ 0066 1! Correct a bug so that structure level 1 can only have a 
; of Bper : cluster size of 1. 
; 9 069 1! v02-005 ACG0240 Andrew C. Goldstein, 11-Dec-1981 22:13 
3 0 070 1! Make default file protection more restrictive 
3 a! 18 : make default index file position beginning for small disks 
Re. 075 1! v02-004 LMP0001 L. Mark Pilan 4-Nov-1981 16:35 
5 74 0074 1! Create a aulti~heoder. lace Tite if the number of headers 
3 e th) ! to be created cannot be contained in a single header 
2, 0077 1! V02-003 RLRDENS Reppgpor 6-0c t-1980 
: 7 0078 1! Added /DENSITY=1 wo "TDENSIT (gee for RX02's 
; FF 0079 1! 
; w 0080 1 !x« 
; «BI 0081 1 
: 82 0082 1 
° 83 008 1 LIBRARY sen eet fereey® L1B, L32'; 
; 84 0084 1 REQUIRE ‘SRC$:INID 
: 85 0375 1 REQUIRE ‘LIBDS: LVRSLIB. Sai JINITASG. B32'; 


| 
V02=006 LMP0006 L. Mark Pilant, 6-Jan=1982 10:40 
| 
| 
| 
| 
| 
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2 
INIDSK 16-Sep-1984 01:44:34 VAX-11 Bliss-32 
v04-000 1 et Yi 93:98:42 DISKSVMSMASTER: 
; 7 0507 1 !+ 
3 8 5 3 74 
3 9 4 } Impure data specific to disk initialization. 
; | (91 11 1 !- 
; 95 \¢ 1 
; 13° 1 GLOBAL LITERAL 
; 86494 14 #4 BADBLOCK_MAX = 128 ! maximum size of bad block table 
; 3? B21? } ALLOC_MAR = BADBLOCK_MAX + 8; ! total size of allocation table 
: 97 213 1 GLOBAL 
3 28 218 | BUFFER : BBLOCK (512), ! all purpose I/0 buffer 
; 100 0520 1! 
: 101 0521 1 ! Allocation table. Consists of 2 parallel tables, for size and LBN of 
: 10¢ B2 ¢ 1 ! allocated areas. Each contains 1 entry for each piece of the disk which 
; ts 82 ; is allocated to something. 
; 4 ! 
; 105 0525 1 ALLOC_TABLE_CNT : VECTOR CALLOC_MAX]), 
; 138 be $ : ALLOC_TABLE_LBN : VECTOR CALLOC_MAX); 
; 108 0528 1 ! Various parts of the allocation table have dedicated meanings. 
: 109 0529 1! 
s 110 0530 1 
s WW 0531 1 GLOBAL LITERAL 
F aT b285 1 BOOTBLOCK_IDX = 0, 
s 11 05335 (1 OMEBLOCKT_IDX = 1, 
3 (116 0534 1 HOMEBLOCK2 IDX = ¢- 
> «115 0535 (1 IDXHDR2_IDX = 3, 
3: 116 0536 1 IDXFILE IDX = 4, 
; 7 0537 1 BITMAP_TDx = 5, 
: 118 0538 #1 MFD_ID = 6, 
3 119 0539 (1 VOLEND_ IDX ae 
: 120 0540 1 BADBLOCK_IDx = 8; 
; 6121 0541 1 
HY \$¢ B2e§ 1 GLOBAL BIND 
3s le 0543 (1 BOOTBLOCK_CNT = ALLOC_TABLE_CNT (BOOTBLOCK_IDX), 
: 1s 0544 1 BOOTBLOCK_LBN = ALLOC_TABIE_LBN CBOOTBLOCK IDX] 
> 125 0545 1 OMEBLOCKT_CNT = ALLOC-TABLE-CNT CHOMEBLOCKT_IDXx4, 
: 126 0546 1 HOMEBLOCK1_LBN = ALLOC_TABLE_LBN CHOMEBLOCK1 IDX), 
: 127 0547 1 HOMEBLOCK2 CNT = ALLOC_ CNT CHOMEBLOCK2 IDX], 
s ie 0548 1 HOMEBLOCK2 LBN = ALLOC_TABLE_LBN CLHOMEBLOCK DxJ, 
5 19? 0549 1 IDXHDR2_CNT = ALLOC-TABLE_CNT CIDXHDR2 IDR), 
; 130 0990 1 IDXHDR2-LBN = ALLOC"TABLE-LBN CIDXHDR2_1DXJ, 
3s 131 se IDXFILE_CNT = ALLOC_TABLE_CNT CIDXFILE IDX), 
3 136 8336 1 IDXFILE_LBN = ALLOC_TABLE_LBN CIDXFILE IDx), 
.? 3s bee 1 B TMAP_C = ALLOC_TABLE_CNT BITMAP_TOX ° 
3 134 554 1 BI TMAPLBN = ALLOC"TABLE-LBN [BITMAP~IDX), 
; 135 0939 1 MFD_CNT = ALLOC"TABLE-CNT CMFD_IDR), 
se 228 | LBN = ALLOC_TABLE_LBN CMFD_ IDX 
: 137 557 1 VOLEND_CNT = ALLOCTABLE~CNT VOLEND_i6x1, 
s 138 558 1 VOLEND-LBN = ALLOC_TABLE_LBN CVOLEND IDX], 
: 139 559 1 BADBLOTK_CNT = ALLOC_TABLE_CNT BADBL OEE 10K) : VECTOR, 
$ re Ose ! BADBLOCK_LBN = ALLOC_TABLE_LBN CBADBLOCK_IDx : VECTOR; 
; 148 366 1 | 
3 4 0565 1 ! Other globals 
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IN 


3 1646 64 1! 

3; «6145 65 1 

3 4 98 1 GLOBAL BIND 

$ Hs 22 : HOME _BLOCK s 
3: 149 509 1 GLOBAL 

; 150 570 1 OLUME SIZE 

> 151 9971 1 EAL_HOMEBLOCK, 

a. 3 ¢ 256 1 BADBCOCK_ TOTAL, 
7 0573 «1 SERIAL_NOMBER, 

: 154 0574 (1 HOMEBLOCK_LBN, 

; 155 575 1 MOUNT_OPTIONS 

; 156 278 1 

; 157 577 1! 

; 158 Bere 1 ! Default parameters. ALL 
; 159 579 1! 

; 160 0580 1 

3: 161 0581 1 GLOBAL BIND 

; 162 038¢ 1 DEF _PRV_PROT = 
: 16 0583 1 DEF -GRP_PROT = 
> 164 0584 1 DEF-SYS_PROT = 
; 165 0585 1 DEF _SHR_PROT = 
: 166 0586 1 DEF-FIL_PROT = 
3 167 0587 1 DEF-FIL-PROT1 = 
: 168 0588 #1 DEF EXTEND = 
> 169 0589 1 DEF WINDOW = 
: 170 0590 1 DEF ACCESSED = 
: 171 0591 1 DEF HEADERS s 
: 172 Beas 1 SMACL_DISK = 
s Uys 0593 1 

: 174 0594 1 FORWARD ROUTINE 

> 175 0595 1 INIT_DISK 

: 176 0596 1 ERASE_DISK 

: 177 0597 (1 VOL_AVAIL 

s te 0598 ~#1 

; 179 0599 (1 


3 
16-5 “1984 01:44:34 VAX"11 Bliss-3 
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BUFFER : BBLOCK; ! buffer to read original home block 


volume size rounded up to next cluster 
LBN of actual secondary home block 
current count of bad areas 

serial number of disk pack 

LBN of home block read 


: BITVECTOR [64]; ! used by some subroutines 


have global names so they can be patched. 


UPLIT (2X"FFOO'), ! default private protection 
UPLIT (2%x"FO00'), ! default group protection 
UPLIT (%x'0000'), ! default system protection 
UPLIT (%x'0000'), ' default shared protection 
UPLIT (ZxX"FAOO'), ! default file protection 
UPLIT (2X"FEO0'), ! default file protection, ODS! 
UPLIT (5), ' default file extend 
UPLIT (7), ! default window size 
UPLIT (3) ' default giregtory LRU Limit 
UPLIT (165 i default initial # headers | 
UPLIT (4096); ! maximum size of a ‘'small"’ disk 
: NOVALUE, ! main routine ; 
: NOVALUE, ; nage ong erase disk : 
: NOVALUE; ! issue the IOS_AVAILABLE function at exit 
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GLOBAL ROUTINE INIT_DISK : NOVALUE = 


'e4 


! 
i FUNCTIONAL DESCRIPTION: | 


This routine contains the main Line logic specific to initializing 
a disk. It sets up the bad block table, allocates the system files, 

path dige | oe. the storage map, and initializes the contents of the 

other es. 


—— CO 
Wwr'—OO0 


i CALLING SEQUENCE: 
INIT_DISK () 


i INPUT PARAMETERS: 
NONE 


! 
! 
' 
! 
! 
! 
! 
! 
! 
! 
! 
1 
1 
! 
! IMPLICIT INPUTS: 
parser data ba 
t 
! 
! 
! 
' 
' 
! 
! 
! 
] 
! 
! 
! 
! 
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se 
own storage of this module 
i OUTPUT PARAMETERS: 
04 NONE 
06 i IMPLICIT OUTPUTS: 
06 NONE 
06 i ROUTINE VALUE: 
06 NONE 
i SIDE EFFECTS: 
disk volume initialized 
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device table index 
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1 
C ' available clusters on volume 
06 VOLUME_OWNER, ' previous owner UIC of volume 
064 STATUS ' system service status 
064 10_STATUS VECTOR C2), ! I/0 status block 
se PRIVILEGE _MASK REF BBLOCK; ! process privilege mask 
064 OWN 
EXIT_BLOCK : VECTOR (5) ! exit handler block 
PRESET ((0OJ = ! system Link longword | 
1) = VOL_AVAIL, ! exit routine entry point 
5 ¢ = 1, ' one parameter, the status 
5 = Ey IT BLOCK [4], ! status at end of block 
: 4) = 0); ! space for status, not used 
5 EXTERNAL 
65 INIT_OPTIONS : BITVECTOR, ! command options ‘ogee 
065 DEVITE_CHAR : BBLOCK, ! disk device characteristics 
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-Sep-1984 5:14 DISKSVMSMASTER:CINIT.SRCJINIDSK.B32; (3). 
; $$ 0637 DEVCHAR_DESC : VECTOR, ! device characterictics descriptor ; 
3 9 6 8 CHANNEL, ! channel assigned to device ‘ 
: 240 65 PROCESS UIC, ! UIC of this process ; 
> 241 660 PROTECTION, ' volume protection ; 
; 24 661 ILE_PROT, ! volume default file protection ; 
> 24 066 ER_vIC, ! volume owner UIC ‘ 
+ 244 6 EXTENSION, ! volume default file extend : 
; 245 664 WINDOW ' volume default window size ‘ 
ee: of ACCESSED, i volume default directory LRU Limit 
: 26 BoP HEADERS, ! initial file header allocation 
; 248 66 CLUSTER, ' volume cluster factor 
; 249 668 MAXIMUM, ! maximum number of files 
3s en 669 INDEX, ! index file start LBN 
: 51 0670 CTLSGL_PHD : REF BBLOCK ADDRESSING_MODE (ABSOLUTE); 
3 26 bor) ! yector page pointer to process header 
; 254 oe78 EXTERNAL ROUTINE 
3 a2? 0674 SET_VALID ! set software volume valid 
: 256 0675 REAB_HOMEBLOCK, i read volume home block 
; 257 0676 CLEAR _VALI ' clear software volume valid 
; 258 0677 INIT_BADBLOCKS, i do bad block processing 
3 ae, 0678 § INIT ALLOCATE, ! allocate file structures 
: 260 0679 INIT BITMAP, ' set up the storage map 
; 261 0680 INIT_INDEX ! initialize contents of index file 
; o¢ 0681 INIT~INDEX4, ! initialize contents of index file, ODS1 
3; 2 068 INIT_MFD; ! initialize contents of MFD 
; 264 068 
: 265 0684 
; 266 0685 ' Set the software volume valid and do a packack. Then read the characterictics 
: 267 0686 : again. since the packack may have caused the driver to discover new data | 
; 268 0687 ! about the device. Declare an exit handler to give the IO$_AVAILABLE function 
; 269 0688 2 ! to undo the I10$_PACKACK. 
3; 270 0689 : 
3 er 0690 
; re 0691 KERNEL_CALL (SET_VALID); 
3; 276 069 STATUS = SDCLEXH (DESBLK=EXIT_BLOCK); | 
; i) 069% IF NOT .STATUS THEN ERR_EXIT T.STATUS); | 
: 277 P 069 STATUS = $Q10W (CHAN = .CHANNEL, 
: 278 P 069 FUNC = IO$_PACKACK, 
: e79 0698 = IO_STATUS); 
H 80 0699 IF .STATUS THEN STATUS = .JO_STATUS<0,16>; 
: 81 0700 IF T .STATUS AND .STATUS NEQ SS$_ILLIOFUNC 
: S¢ 07 THEN ERR_EXIT (.STATUS); 
: 
: Be 0708 SGETCHN (CHAN = .CHANNEL, PRIBUF = DEVCHAR_DESC); 
3; 286 $45 ! If the process does not have VOLPRO privilege, attempt to read the old 
3; 287 m8 ' home block. If there is a home block, check the volume owner UIC. It must be 
; 288 70 i zero (unowned) or match the UIC of the user. 
: $99 709 3 : 
5 91 710 PRIVILEGE _MASK = ete PHDCPHD$Q_PRIVMSK]; 
> 29 711. 2 iF NOT .PRIVILEGE_MASKLPRV$V_VOLPRO) 
; 29 ay THEN 
: 294 71 BEGIN 


3 
ise 1984 01:44:34 VA 
127 808=1 382 Peep DI 
STATUS = READ_HOMEBLOCK (UPLIT (0, 0), 0); 


IF .STATUS | 
OR, STATUS EQL SS$_INCVOLLABEL 
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JINIDSK.832; (3) 


EGIN 
IF .HOME BLOCKCHM2$B8_STRUCLEV] Fou 2 
ives VOLOME OWNER = THOME _BLOCKCHM2$L_VOLOWNER] 


BEGIN 
VOLUME_OWNER = .(HOME_BLOCKCHM1$W_VOLOWNER])<0,8>; 
VOLUME “OWNER<16,,8> = 7(HOME_BLOCKCHM1$W_VOLOWNER]5<8,8>; 


IF .VOLUME_OWNER NEQ 0 
AND .VOLUME OWNER NEQ .PROCESS_UIC 
pe ERR_EXIT (SS$_NOPRIV); 

END; ; 


| 
| 
| 
! Establish defaults for volume parameters not specified in the command. 
| 


SNS NNN 


! 
' Also, if structure level 1 is specified, use level 1 defaults and disallow 
options that are not supported. 
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7 
a Mi ;1NIT_OPTIONSCOPT_DENSITY] THEN 
m4 IF .DEVICE_CHARCDIBSB_DEVTYPE) NEQ DT$_RXO2 THEN ERR_EXIT (INIT$_ILLOPT); 
; 7% IF .INIT_OPTIONSCOPT_DENS_SING] 
74 THEN BEG | 
3 P 074 STATUS = $Q]0W (CHAN = .CHANNEL 
3 P 074 I0SB = 10 STATUSCO), 
3 P 2 FUNC = 10$_FORMAT, 
= ° 
74 IF .STATUS THEN STATUS = .10_STATUS<O,16>; 
a cif NOT .STATUS THEN ERR_EXIT~(.STATUS); 
75 ELSE IF .INIT_OPTIONSCOPT_DENS_DOUB) | 
7 THEN BEGIN | 
35 P 07 STATUS = $Q10W (CHAN = .CHANNEL 
3% P 0755 10SB = 10 STATUSCO), 
37 P ? 6 FUNC 5 108_FORMAT. 
8 758 IF .STATUS THEN STATUS = .10_STATUS<0,16>; 
40 139 a NOT .STATUS THEN ERR_EXIT~(.STATUS); | 
42 761 ELSE ERR_EXIT (INITS_BADDENS); | 
44 P 708 STATUS = $Q10W (CHAN = .CHANNEL 
45 P 0764 FUNC = 10$_PACKACK, 
& 765 10SB = 10_STATUS); 
47 766 IF .STATUS THEN STATUS = -10_STATUS<O, 16>; 
a 76 IF NOT .STATUS AND .STATUS NEQ SS$_ILLIOFUNC 
49 26 THEN ERR_EXIT (. STATUS); 
51 15 SGETCHN (CHAN = CHANNEL, PRIBUF = DEVCHAR_DESC); 
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END; 
IF_.INIT_OPTIONSCOPT_STRUCTURE1) 
THEN 
BEGIN 
P INIT_OPTIONS ; yECTOR: 
IF (INIT OPTIONS EO AND LEVEL2_OPTIONS) NEQ 0 
(, INIT_OPTIONSC1) AND pevate OPTIONS2) NEQ 0 
THEN ERR_ERIT (CINITS_NOTSTR 
IF .DEVICE_CHARCDIBSL pare. oc GTRU 255*12 
THEN ERR_ERIT (INIT$_CARGE 


OPTIONSCOPT_SYSTEM) 
THEN PROTECTION = .DEF_SYS_PROT 
IF .INIT_OPTIONSCOPT GROUP) 
THEN PROTECTION = .DEF_GRP_PROT 
ELSE PROTECTION = .DEF-PRV-PROT; 
.INIT_OPTIONSCOPT_SRAARE 
en PROTECTION = .PROTECTION AND .DEF_SHR_PROT; 


F NOT .INIT_OPTIONSCOPT_FILE_PROTJ 


I 
THEN 
IF INIT OPTIONSCOPT STRUCTURE1] 
THEN FILE_P -DEF_FIL_PROT1 
ELSE Fite -pROT = [DEF -FIL~PROT; 


IF NOT .INIT OPTIONSLOBT EXTENSION) 
THEN EXTENSION = F_EXTEND; 


F NOT .INIT_OPTIONSCOPT WINDOW) 
THEN WINDOW = .DEF_WINDOQ; 


. petiousceet ACCESSED) 


IF NOT .INIT 
THEN ACCESSED = .DEF_ACCESSED; 


IF INIT =OPTIONSCORT HEADERS] 
THEN HEADERS © -DEF HEADERS; 


IF NOT .INIT_OPTIONSCOPT_OWNER_UIC) 
THEN 


BEGIN 
OWNER UIC = .PROCESS_UIC; 

IF .IRIT OPTIONSCLOPT~ GROUP 
THEN OWNER _UIC<0,16>7= 0; 

IF .INIT OPTIONSCOPT SyStEn] 
ren ER_UIC = £x'T0001'; 


IF .INIT Get LONsCoPT STRUCTURE] 
THEN CLUSTER 


Bi ts 


3 


tet 
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BEGIN 
i NOT .INIT_OPTIONSCOPT_CLUSTER) 
IF .DEVICE CHARCDIBSL_MAXBLOCK] LEQU 50000 
THEN R=] 


CCUSTE 
ELSE CLUSTER = 3; 


1T_OPTIONSCOPT _MAXIMU 
"= 


PTI mw Copt EXP_VER 
willy LEQU .SMALL_DISK 


0; 


: 0 
AND (.DE CHAR chante 
R C EVS 
THEN INIT POPTIONSCOPT VERIFIED 


Compute volume size, rounded up to next cluster boundary. 
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Mm) 
-DEVICE PCRARCD BSL -MAXBLOCK] / ((.CLUSTER+1)*2); 


Now verify the parameters against the volume size and characteristics. 


34 i clusters. 
3 , 
56 if -VOLUME_SIZE / .CLUSTER GTRU 255*°12 

438 57 R .VOLUME-SIZE / .CLUSTER LSS 5 
rt 328 PHEW ERR_ERIT CINITS-CLUSTER): 
ret Bees Check maximum number of files against number of clusters. 
44 086 
446 086 C = .VOLUME_SIZE / (.CLUSTER+1); 
445 0864 IF .MAXIMUM’ GTR .C 
446 0865 THEN MAXIMUM = .C; 
447 0866 ; ; 
448 0867 ! Check initial index file size against max files. 
449 0868 2 
450 0869 
451 0870 IF .HEADERS LSSU 16 THEN mort = 16; 

£38 ye IF_ .INIT_OPTIONSCOPT steyetu URE1 

45 87 THEN IF XIMUM GTRO 65500 THEN MAXIMUM = 65500; 
$28 yh IF .HEADERS GTRU .MAXIMUM THEN HEADERS = . MAXIMUM; 
456 0875 ! Check the position of ths initial index file. 
457 378 : 

458 ba) 

459 0 8 IF _.INIT_OPTIONSCOPT_INDEX_BEG] 

rr O80 THEN INDEX = 0 

m4 Hy ELSE IF .INIT_OPTIONSCOPT_INDEX_END) 

rst OBsS THEN INDEX = TDEVICE_CHARTDIBSL_MAXBLOCK]) - 1 

465 0884 ELSE IF .INIT_OPTIONSCOPT_INDEX_MID] OR NOT .INIT_OPTIONSCOPT_INDEX_LBN) 


VOLUME _SIZE = (.DEVICE_CHARCDIBSL_MAXBLOCK] + .CLUSTER - 1) / .CLUSTER * .CLUSTER; 


! Check the cluster factor against its lower bound such that the storage map 
' does not exceed 255 blocks. Also check for a reasonable minimum number of 
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3 166 pes? THEN 

; 46 0 § BEGIN 

; 468 088 IF .DEVICE_CHARCDIBSL_MAXBLOCK] LEQU .SMALL_DISK 

>; 469 ttt THEN INDEX™= 0 

; 470 889 ELSE INDEX = .DEVICE_CHARCDIBSL_MAXBLOCK] / 2; 

La ie 
: 47 0896 IF . INDEX GTRU .DEVICE cuanco teu, _MAXBLOCK) 
; one 089 THEN ERR_EXIT (CINITS_INDEX) 

: 476 0895 ! Now call the routines that do the work of initializing. 

; 677 44 : 
; 4678 89 
3; 479 0898 INIT_BADBLOCKS ( 
: 480 0899 2 ERASE DISK Cevite _CHARCDIBSL_MAXBLOCKI-1); | 
; 481 090 INIT ALLOCATE. ¢ ); 

: 48 0901 INIT-BITMAP (); 
; 48 090 If .INIT OPT1OUSCOPT _STRUCTURE1] 
3 090 THEN INIT_INDE)'1 

; (485 0904 ELSE INIT INDEX RY 
; 0905 INIT_MFD %); 
> 487 0906 
; 0907 2 ! Issue the IOS_AVAILABLE call, cancel the exit handler and clear the valid bit 

> 489 0908 i 

; 0909 
; 491 0910 VOL AVAIL 

: 492 0911 STATUS = SCANEXH (DESBLK= EXIT_BLOCK); 

: 493 O9i¢ i NOT .STATUS THEN ERR_EXIT T.STATUS); 

; $38 at KERNEL CALL (CLEAR_VALIB); 

: 496 0915 1 END; ! end of routine INIT_DISK 


| 

| 

| 

| 

: INIDSK 
-IDENT \V04-000\ | 
.PSECT S$PLITS$,NOWRT,NOEXE,2 | 
j 


tha Q0000 P.AAA: .LONG 65280 : 
Q000F 00 0004 P.AAB: .LONG 61440 : 
00000000 Q0008 P.AAC: .LONG 0 : 

att 0 of P.AAD: .LONG 0 ; 

FA 10 P.AAE: .LONG 64000 : 

F 14 P.AAF: .LONG 5024 : 

18 P.AAG: .LONG : 

3 8 3 0 ie P.AAH: .LONG : 

0 P.AAL: .LONG 3 : 

000001 0024 P.AAJ: .LONG 16 : 

000100 83 8 P.AAK: .LONG 4096 : 

00000000 00000000 O2C P.AAL: .LONG 0, 0 : 


-PSECT SOWNS,NOEXE,2 
00000000 00000 esd 


goosgnpov pony ADDRESS, vl AVAL ; 


IN 


3 
HeSeoe}9RE Q4SSEHE YAEL TABLLEREREC HAA P22 waase.osas42* cH} 


80000000 90010 27 ie para peat pn 


-PSECT S$GLOBAL$,NOEXE,2 


909 BUFFER::.BLKB 512 
ALLOC_TABLE_CNT: 


ee 


BL 44 ; 
00420 ALLOC_TABLE LBN:: ; 
«BL 544 H 
00640 VOLUME. SiZE ‘ | : 
00644 REAL_HOMEBLOCK:: : 
-BLK 4 : 
00648 BADBLOCK_ TOTAL: : | | ; 
0064C SERIAL_NUMBER:: | $ 
-BLK 4 : 
00650 HOMEBLOCK_LBN:: ; 
.BLKB 4 | ; 
00654 MOUNT_OPTIONS:: : 
-BLKB 8 | : 
BADBLOCK_MAX== 128 | 3 
ALLOC_MAX== 136 ; 
BOOTBCOCK_IDx== 0 ; 
HOREBLOGREIDKo= 1 3 
OREBL OCK? IDX== ¢ ; 
XHDR2_1DR== : 
IDKPILE” IDX== 4 3 
git MAP_TDX== 5 ; 
1DX== $ : 
VOL ND IDX== 3 
BADBLOCK_IDX== 3 
BOOTBLOCR_CNT== ALLOC_TABLE_CNT 3 
BOOTBLOCK-LBN== ALLOC~TABLE— 3 
HOMEBLOCKT_CNT== ALLOC_TABLE_CNT+4 3 
HOMEBLOCK1"LBN== ALLOC"TABLE_LBN+4 3 
HOMEBLOCK2~ CNT== ALLOC_TABLE_CNT+8 : 
HOMEBLOCK2-LBN== ALLOC_TABLE_LBN+8 3 
He Me ALLOC_TABLE_CNT+1 3 
IDXHDR2_LBN== ALLOC"TABLE_LBN+1 3 
IDXF ILE CNT== ALLOC"TABLE_CNT+16 3 
IDXF ILE~LBN== ALLOC{TABLE“LBN®16 | : 
BITMAP_CNT== ALLOC"TABLE_CNT+ 3 
B1TMAP-LBN== ALLOC_TABLE_LBN+20 Z 
MFD_CNT== ALLOC"TABLE_CNT+24 : 
MFD-LBN== ALLOC"TABLE_LBN+24 ; 
VOLEND_CNT== ALLOC-TABLE_CNT+ 3 
OLEND-LBN== ALLOC"TABLE_LBN+ 3 
BADBLOCK_CNT== ALLOC"TABLE_CNT+ 3 
BADBLOCK”LBN== ALLOC”TABLE_LBN+ 3 
HOME BLOCK== BUFFER : 
DEF _PRV_PROT== ; | 3 
DEF -GRP-PROT== PLA 3 
DEF-SYS"PROT== P.AAC 3 
DEF “SHR-PROT== P.AAD : 
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734 - 
714 DISKSVMSMASTE 


VAX-11 Bliss 3e vee 742 


TLS$GL_PHD 

D, READ HOMEBLOCK 
iD, INIT BADBLOCKS 

ATE, INIT BITMAP 


INIT I 
SyS$C 
H, SYS$Q10W 
HN, SYSSCANEXH 
SCODES,NOWRT,2 
INIT_DISK, Save R2,R3,R4,R5,R6,R7,R8,R9, = 


HEADERS, R11 
CHANNEL, R10 


MAXIMUM, RO 
VOLUME SIZE, R8 
SYS$QIOW, R? 
DEVICE CHAR+112, R6 
SMALL_BISK, R5 
LIBSSTOP, R4 
INIT_OPTIONS, 3 
#8, SP 
-(§p) 
SP 
SET _VALID 
#3, “a#SYSSCMKRNL 
EXiT BLOCK 
#i, SYSSDCLEXH 

ATU 
STATUS, 1$ 
STATUS 
#1, LIBSSTOP 
-(§P) 


=( 

10_STATUS 

#8 

ae 

#12, SYS$Q10W 
RO, STATUS 
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; 0600 


0691 


0693 
0694 


0698 
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INIDSK 16-Sep-1984 01:44:34 -VAX-11 Bliss-32 V4.0-742 Page 13) 
12850 1a-Sep- 382 }:4 :14 _ DISKSVMSMASTER:CINIT.SRCJINIDSK.B32:1-> 3) 
06 52 5 7 BLBC STATUS, 2$ F 0699 
f 7 MOVZ2WL 10 status STATUS : 
OE é 7 BLBS STATUS, § + 0700 
Q00000F4 BF D4 iB 2$ CPL STATUS, #2446 : 
: bd § PUSHL STATUS : 0701 
64 OT FB 0 CALLS #1, LIBSSTOP : 
. 3$: CLRO 0—_ = (§P) + 0703 
00006 cr 9F 000 PUSHAB DEVCHAR_DESC : 
E D4 OO08F CLRL =(SP) : 
A 0D 00091 PUSHL CHANNEL g 
000000006 99 5 FB 0095 CALLS #5, SYSS$GETCHN : 
000000006 9F »D 9A MOVL #a@ACTLSGL_PHD, PRIVILEGE_MASK + 0710 
43 60 15 £0 000A1 BBS #21, (PRIVILEGE_MASK), 7$ : 0711 
7 D4 OOOAS CLRL = = (SP) + 0714 
04 AS 9F 000A7 PUSHAB P.AAL : 
00006 CF 08 FB OOOAA CALLS #2, READ_HOMEBLOCK : 
52 50 DO OOOAF MOVL RO, STATOS : 
09 3g E8 90082 BLBS STATUS, 4$ + 0716 
0000010C =F 32 D 00085 cmPL STATUS, #268 : 0717 
02 FOCD C8 9 0008 4$ CPB HOME_BLOCK+13, #2 : 0720 
50 FIEC C8 06 900¢ MOV HOME BLOCK +44, VOLUME _OWNER : 0721 
50 FODE 8 9A OO0CC S$ MOVZBL HOME_BLOCK+30, VOLUME_OWNER + 0724 
50 08 10 F ODF cB FO 00001 INSV _ HOMEBLOCK+31, #16, #8, VOLUME_OWNER + 0725 
0 b8 00008 6$: TSTL VOLUME _OWNER ; 0728 
0¢ 13 OOODA BEQL 86 7$ : 
00006 CF 30 D4 9000¢ CPL VOLUME OWNER, PROCESS_UIC + 0729 
24 DD 000E3 PUSHL : 0730 
64 01 Fs 000E5 CALLS #1, LIBS$STOP : 
03 0088 &é O00E8 7$ BLBS INIT_OPTIONS, 8$ : 0739 
0B 95 ab 1 OOOEE 8$ CHPB DEVICE_CHAR+5, #11 t 0741 
00758034 8F DD 000F4 PUSHL #7700532 : 
64 01 FB OOOFA CALLS #1, LIB$STOP : 
1D 046 A3 04 £1 OO0FD 9$ BBC #4, INIT_OPTIONS+4, 108 > 0743 
7E 7C 00102 CLRQ = = (§P) + 0748 
7E 7C 00104 CLRQ  <=(SP : 
7E Qi 7D 00106 MOV #1, =-(SP) : 
— 7C 109 cLRao = § ; 
20 AE 9F 001 PUSHAB 19 STATUS : | 
1E DD O10 PUSHL : 
6A DD 0011 PUSHL CHANNEL : 
7E D4 00112 CLRL 5s?) : 
? Ob Sus gait Aut fxspgto™ : 
‘i PTE BHe Bas puts. Ts i 
11F 108: C #5, INIT_OPTIONS+4, 13$ : 075 
as * i gt 6} 4 . at reps - ; o726 
43 7€ 001 6 CLRQ  =(SP) : 
7E 9 7D 001 MOVQ #2, =(SP) : 
— 7C 00128 cLRo = § : 
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10.2860 12-8 08- 1 3b ep DISKSVMSMASTER:CINIT.SRCJINIDSK.B32:1-> Ry 

20 AE 9F 00120 PUSHAB 10 STATUS ; ; 
1E DD 001 9 PUSHL : : 
gh DD 001 PUSHL CHANNEL : ; 
E D4 00134 CLRL. os : ; 
67 : FB 001 CALLS #12, SYS$QI0W : ; 
2 DO 001 MOVL RO, STATU : ; 
06 5 5 13¢ BLBC STATUS, 12$ + 0758 : 
¢ 13F 118 MOVZWL 10 STATUS, STATUS : : 
0D E Ihe BLBS STATUS, 15$ + 0759 ‘ 
DD 00145 12$:  PUSHL STATUS ; : 
06 11 00147 BRB 14$ : ; 
00758014 8F DD O149 13$: | PUSHL #7700500 + 0761 : 
64 Qi FB OO14F 14$: CALLS #1, LIB$STOP ; : 
E 7C 00152 158: CLRO -<(SP) ; 0765 ; 
7E 7C 00154 CLRQ  =(SP) : : 
7E 7¢ 0136 CLRQ  =(SP) : ; 
7E 7€ 0015 CLRQ  =(SP) : ; 
20 AE OF 0015A PUSHAB 10_STATUS ; : 
08 DD 0015p PUSHL #8 : : 
6A DD 0015F PUSHL CHANNEL F : 
7E D4 00161 CLRL. 0 =(S ; : 
67 OC fa 00165 CALLS #12, SYS$QI0W : ; 
52 50 DO 00166 MOVL STAT : : 
06 52 E 00169 BLBC STATUS, 16$ : 0766 F 
52 6— 3¢ 0016C MOVZ2WL 10 STATUS, STATUS : F 
OE 52 EB O016F BLBS STATUS, 17$ + 0767 ; 
Q00000F4 BF 3 D4 00172 16$: CPL STATUS, #2446 ; : 
52 DD 80178 PUSHL STATUS : 0768 ; 
64 01 FB 0017D CALLS #1, LIBSSTOP : : 
7E 7C 00180 17$: CLRO 0 _ = (§P) : 0770 ; 
00006 oF be 18s in” ser 
6A DD 00188 PUSHL CHANNEL : : 
000000006 00 05 Fe 0018A CALLS #5, SYSS$GETCHN : 3 
03 A} 9 90191 18$: iste INIT_OPTIONS+3 : 0773 : 
9180 8F é3 e sa198 i Tw INIT_OPTIONS, #37248 : 0777 ; 
0c 05 a3 93 00190 BITB INIT_OPTIONS+5, #2 : 0778 ; 
09 13 OO1A1 BEQL 9$ : : 
007580EC 8F DD O1A3 PUSHL #7700716 : 0779 ; 
6 01 FB 001A9 CALLS #1, LIB$STOP ; ; 
OOOFFOOO BF ; pI a 19$: CHL WICE_CHAR+112, #1044480 : 0781 ; 
007580Dc 8F DD O18 PUSHL #7700700 : 0782 3 
64 1 FB 1BB CALLS #1, LIBS$STOP ; : 
2B 01 a3 02 E O18 20$: BBS We, INIT_OPTIONS+1, 24$ : 0785 ; 
08 6 4 €1 O01C BBC #4. INITOPTIONS : 0788 : 
00006 CF E0 i bo 1¢7 MOVL f -SYS_PROT, PROTECTION : 0789 ; 
08 63 03 €1 OOICF 21$: BBC #3, INIT OPTIONS, 228 : 0790 ; 
00006 CF Dc i bo 103 MOVL f -GRP_PROT, PROIECIAON : 0791 : 
0006 CF D8 AS DO 001DB 22$:  MOVL  DEF_PRV_PROT, PROTECTION : 079 : 
09 rms $3 08 E1 OO1E1 $f: BBC 0 “INIT OPT ions. ots : $798 ; 
0 E46 AS D2 OO1ES MCOML DEF_SHR_PROT, R : 0794 ; 
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ION 
TIONS+1, 26$ 
TONS+ 


_PROT1, FILE_PROT 
PROT FILE _PROT 
PTIONS+ 


27$ 

EXTENSION 
+ e 
OW 


PTIONS 
WIND 


HEADERS 
fIONS+1, 32$ 
C, OWNER UIC 
PTIONS, 31$ 


OPTIONS, 328 
WNER_UIC 
NIT_OPTIONS+3 

NIT OPTIONS*1 
EVICE_CHAR+112, #50000 


#1, CLUSTER 
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CHAR+112, R1 
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R 
R+1, 38$ 
0 
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LUME SIZE 
size, RO 
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LUSTER, RO 
OLUME SIZE. C 
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aR+112, MAXIMUM 
2, SMALL_DISK 
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HOae860 182368- 1 3b 9}: i ‘tt ST EKSYMGHASTER. CINIT.SRCJINIDSK.832;1 a9 (35 

10 D1 00204 41$ CMPL HEADERS, #16 : 0870 ; 
1 07 BGEGU 42$ ; : 
6B 09 09 MOVL #16, HEADERS ; : 
03 A DC 42$: TST iuit _OPTIONS+3 + 0871 ; 
OF 18 OF BGEQ «= 43 ; ; 
OOOOFFDC BF : pt 34 CHL MAXI MUM, #65500 ; 0872 ; 
69  FFDC 8F 3C QOCEA MOVZWL #65500, MAXIMUM ; ; 
69 68 D1 OOGER 438: CMPL HEADERS, WAAXTRUM ; 0873 : 
1 F2 BLEQU 44$ : ; 
6B 69 00 O2F4 MOVL MAXIMUM HEADERS F F 
1¢ 02 A 04 E 0 F7 44$: BBS INIf -OBTIONS*2, 4 47$ + 0878 ; 
08 02 A 6 £1 O02FC BBC as: INIT™ OPTION 45$ + 0881 r 
00006 CF 66 on C3 0 oF SUBL3 i DEVITE PCHARST 2, INDEX ; 0882 ; 
05 02 a3 O8 £0 0 09 45$: BBS INIT OPTIONS*2, 46$ + 0884 ; 
02 A3 E TSTB "att OPTIONS : F 
11 19 00311 BLSS : ; 
65 66 D1 00315 46$: CMPL DEVICE_CHAR#112, SMALL_DISK + 0887 : 
06 1A 00316 BGTRU 48$ : 
00006 CF D4 soete 47$: CLRL INDEX ; 0888 : 
00006 CF 66 OS C7 OOSIE GBS: DIVL3 #2» DEVICE CHARe112 JNDEX ; 0889 : 
68 00006 cf pi 00 4 49$: CMP NDEX, DEVICE_CHAR+11 ; 0892 ; 
ealaeee a: 8) ee a fom Eg! 
00006 CF 90 FB 00334 50$: CALLS #0. INIT BADBLOCKS + 0898 : 
7E 66 1 C3 00339 SUBL 1, DEVITE_CHAR+112, -(SP) : 0899 ; 
0000v CF 01 FB 0033D CALLS #1. ERASE f « : : 
en ee Rp ta mel i 
03 As 3 00 4c is INiT TOPTTONS #3 : 0902 : 
00006 CF 009 FB 00 31 CALLS ! INIT_INDEX1 ; 0903 ; 
0000G CF 00 FB 00 58 51$ CALLS #0, INIT_INDEX + 0904 ; 
0000G CF 00 FB 00350 52$ CALLS #0, INIT7MFD + 0905 : 
0000v CF 00 FB 00 6¢ CALLS #0. VOL_AVAIL 3; 0910 ; 
0000" cr 9F 0036 PUSHAB EX XfT_BLOCK : 0911 ; 
000000006 99 o1 FB 0 i CALLS a. SYSSCANEXH 3 
05 3g pe 037 BLBS OTATUS. Ss > 0912 : 
64 81 FB O08/A Pete STATUE sstop ; 
HM D4 00370 53$:  CLAL wtp) > 0913 : 
SE OD 0037F PUSHL : : 
000000006 9F _— ‘3 Pb 5 Hy CALS #ee BASES CMKRNL : 
Oe 0038C RET ; ; 0915 ; 
| : 
5 
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; 49 916 1 ROUTINE ERASE_DiSK (LAST_LBN) : NOVALUE = 

3 198 319 1 3 

: 4 318 1 4 

3 1 919 1! 

5 oe 2 Y ! FUNCTIONAL DESCRIPTION: 

; 506 9 § 1! This routine contains the toate specific to performing a Data 

3 305 1! Security Erase (DSE) to an ODS-2 disk. e erase is conditional, 
3 88 ey and must be performed after the volume's bad blocks have been 

; 50 925 1! processed. 

; 508 9 § 1! 

3 % 9 1 ! CALLING SEQUENCE: 

: 17 2 3 : ERASE_DISK (ARG1) 

; \§ 0930 1 ! INPUT PARAMETERS: 

: 1 0931 1! ARG1: Last LBN on this disk. 

3 aie 88 ¢ 1! 

3 515 9 1 ! IMPLICIT INPUTS: 

3 218 0934 1! parser data base 

ie) 0935 1! own storage of this module 

; 518 0936 1! 

; 232 a4 44 1 ! OUTPUT PARAMETERS: 

; 0 0938 1! NONE 

: $21 0939 1! 

, > ¢ 0940 1 ! IMPLICIT OUTPUTS: 

3 Se 0941 1! NONE 

F ese 0942 1! 

s 52s 094 1 ! ROUTINE VALUE: 

; 526 0944 1! NONE 

s Ser 0945 1! 

; See 094 1 ! SIDE EFFECTS: 

: 263 0947 1! disk volume is erased. 

; 5 0948 1! 

g 33! 0949 1 !-- 

ae $ 0950 1 

s 33 0951 BEGIN 

: «534 095 

; 535 095 EXTERNAL 

; 336 0954 CLUSTER, ! Volume cluster factor 
3; dor 0955 CHANNEL ' 1/0 channel to device 
: 238 095 INIT_OPTIONS : BITVECTOR; i Command options 

5 540 095 EXTERNAL ROUTINE 

: 541 95 ERASE BLOCKS; ! Common disk DSE routine 
3 tg 960 

>; 94 961 LOCAL 

3 5646 0906 COUNT, ! # of blocks to erase 
; 545 ERASE_STATUS, ' Status of the DSE 

3 a4$ 964 I ' Table index 

: 54 965 LON ' Current Logical Block Number 
; 548 NEXT _LBN, ' Next Logical Block Number 
; 549 STATOS; ! Temporary storage 

: 83y 393 

3 236 $70 If the user did not explicitly request a DSE on an ODS-2 disk, return. 
: 37 $373 IF NOT .INIT_OPTIONSCOPT_ERASE) 
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v04- a aert 1 9} 3 14 DISKSVMSMASTER: CINIT.SRCJINIDSK.B32;1 . (4). 
; $55 973 OR  INIT_OPTIONSCOPT_STRUCTURE1) | 
: $ 975 RETURN; 
; 335 oF 
; 30 BS ! Perform a DSE on the disk. Use a common routine that does the DSE 
> 561 97 ! via logical 1/0. The bad block data has been processed, so take care 
s +6 0980 ! not to overwrite any of the data, especially the factory bad block file. 
; 36 0981 ! The bad block allocation information is stored in descending order on 
; 564 098 ! the LBN, and the count is in clusters. The volume blocking factor has 
; 565 098 ! been accounted for. 
: 368 boss 5 | 
; 368 986 ¢ ERASE STATUS = 1; | 
; 569 9 LBN = 0; 
; 370 Baas I = .BADBLOCK_TOTAL = 1; 
; 228 0990 ¢ WHILE .LBN LSS .LAST_LBN DO | 
iho oe 
: 575 099 i Determine the area to be erased. Do not erase those portions of 
: 278 baa the volume that are allocated to the bad block file. 
; 378 0996 4 if Gd GEQ 0) AND (.BADBLOCK_CNTC.1] NEQ 0) | 
Bo BAe ee 
; 286 iSoe : Erase from the current position to the start of the allocated extent. 
: 584 1002 4 COUNT = .BADBLOCK_LBNC.1) -_.LBN; 
3; 383 1003 4 NEXT_LBN = .BADBLOCK_LBNL.1] + .BADBLOCK_CNTC.1); 
; 238 1004 4 Ie ei; 
; ay 1006 : e.see™ 
noe to 
; +4 ION ? Erase from the current position to the end of the volume. | 
; 298 1011 4 COUNT = .LAST_LBN ~ -LBN; | 
: 594 1018 4 NEXT_LBN = .LAST_LBN; | 
3 399 101 3 
: 399 1018 | 
3 295 1318 ! Do the DSE. If errors are encountered, only the first error is reported. | 
3 600 1018 4 if NoT (STATUS = EXEC_CALL (ERASE_BLOCKS, .LBN, .COUNT, .CHANNEL)) 
3 608 1020 IF_.ERASE_STATUS | 
: 604 1028 ERASE_STATUS = .STATUS; 
; 605 ' ; 
: 607 : 5 ! Advance to the next range of logical blocks. 
: 609 1059 LBN = .NEXT_LBN; | 
; 610 1 3 END; ! End of WHILE loop 
: OV 10 
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| 
; 61 1030 2! 
: ei8 i 1 If an error was encountered, let the user know about it. 
; 615 1 : if NOT .ERASE_STATUS 
; 616 1034 2 TH | 
; 617 19 5 ERR_MESSAGE (INITS_ERASEFAIL, 0, .ERASE_STATUS); 
: 619 8 $ 1 END; | 
.EXTRN ERASE_BLOCKS, SYSSCMEXEC | 
champeta Se ee WOR a ee 0916 | 
e ave e e 
79 00006 CF 02 €1 0000 BBC #2, INIT OPTIONS+5, 58 : ed 
00006 cr 5 0000 TSTB —s IN T_OPTTONS+ : 097 
3 19 0000C¢ BLSS $ : 
54 94 DO 0000¢ MOVL #1, ERASE_STATUS + 0986 
3 D4 9001 CLRL_  LBN + 0987 
52 0000" CF 01 C3 00013 SUBL3. #1, BADBLOCK_TOTAL, I + 0988 
046 Ac 53 D1 00019 1$: CMPL LBN. LAST_LBN ; 0990 
4 18 0001D BGEG $ ; 
52 05 OO01F TSTL + 0996 
1¢ 19 00021 BLSS $ ; 
0000'CF42 D 990 3 TSTL  BADBLOCK_CNTCIJ ; 
15 13 00028 BEQL 28 : 
56 0000'CF4 53 c3 O002A SUBL3 LBN, BADBLOCK_LBNCIJ, COUNT > 1002 
55 0000'CF4 0000" CF 4g C1 00031 ADDL3 BADBLOCK_CNTCTJ, BADBLOCK_LBNCIJ, NEXT_LBN ; 1003 
52 07 00038 DECL + 1004 
09 (11 9003p BRB $ > 0996 
56 04 AC 53 C3 OOO3F 28: SUBL3. BN, LAST_LBN, COUNT : 1011 
55 06 AC 00 00044 MOVL LAST_LBN, ~NEXT_LBN + 1012 
0000G CF OD Bp oee 3$: SHL CHANNEL : 1018 
0048 8F 6B 0046 PUSHR #*M<R3,R6> : 
03 DD 0005 PUSHL #3 ; 
5E DD 00052 PUSHL SP ; 
00006 CF 9F 00094 PUSHAB ERASE_BLOCKS ; 
000000006 9F 06 FB 0058 CALLS #6, @¥SYSSCMEXEC F 
06 E8 0005F BLBS = STA ; 
03 54 «ES 0068 BLBC — ERASE _STATUS, 4$ > 1020 
54 50 00 0006 MOVL STATUS, ERASE_STATUS : 1022 
53 55 DO 00068 4$: MOVL § NEXT_LBN, LBN : 1027 
AC 11 068 BRB 1$ : 0 
1 54 £8 0006D 5$: BLBS §_ ERASE_STATUS, 6$ : 10 
34 DD 00070 PUSHL ERASE~STATUS : 103 
E D4 0072 CLRL. = = (SP) ; 
00759010 8F DD 00074 PUSHL #7704592 ; 
000000006 00 03 FB OOO7A CALLS #3, LIBSSIGNAL ; 
04 00081 63: RET : 1037 


; Routine Size: 130 bytes. Routine Base: $CODE$ + 038D 


ROUTINE VOL_AVAIL : NOVALUE = 
lee 
! 
FUNCTIONAL DESCRIPTION: 
This routine issues an IOS$_AVAILABLE function to undo the effects of 
the IO$_PACKACK function. 
CALLING SEQUENCE: 
Implicitly called during image rundown, or called via VOL_AVAIL (). 
INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 


MEUM —O OCONAUES WNC OONOUS W000 


SRESSSRSSCSISIIS ISIE REE EERER ECS 


te a bb a a 2 4 a a a 1 a as 9 2s 2 a 


EDI nk sk st ns tk kk kk a ht ht tt 


3 * CHANNEL = channel for the disk 
; 0 OUTPUT PARAMETERS: 
5 1 NONE 
; ‘ IMPLICIT OUTPUTS: 
3 : NONE 
; 6 ROUTINE VALUE: 
: 647 NONE 
; 648 
; 649 SIDE EFFECTS: 
; 650 7 disk volume released 
; 651 8 
; O26 069 - 
3; 6) 070 
3; 654 071 BEGIN 
; 655 O76 
: 656 07 EXTERNAL 
3 et4 ore CHANNEL; ! channel assigned to device 
: 659 P 1076 $Q]0W (CHAN = .CHANNEL, ! issue the function, ignore status 
; 660 077 FUNC = ]O$_AVAILABLE); 
3; 661 078 
; 2 079 END; ! end of routine VOL_AVAIL 
0000 00000 VOL_AVAIL: 
-WORD Save nothing 
7E 7C 00002 CLROQ -(SP) 
7E 7C 00004 CLRQ -(SP) 
Tae a si CLRQ -(SP) 
7E 7C 000 CLRQ Pit ed 
11 70 A mcva #17, =(SP) 
00006 CF DD PUSHL CHANNEL 
E 04 0001 CLRL - P) 
000000006 00 OC FB 00013 CALLS #12, SYS$Q10W 
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; 1079 


we 


DISKSVMSMASTER:CINIT.SRCJINIDSK.B32; 


VAX-11 Blisse32 V4.0-742 


RET 


04 OOO1A 


Routine Base: SCODES + O040F 


27 bytes, 


-_ 


; Routine Size: 


bl 


: me: 
; Elapsed Time: 8; i-* 


374 
; Lexemes/CPU-Min: 29732 
; Memory Used: 299 pages 
; Compication Complete 


144:34 VAK=11 BLliss-32 V4.0-742 e 22 IN] 
:35:14 DISKSVMSMASTER:CINIT.SRCJINIDSK.B32;1 39 (6) v0é 
| ; 
ai\ 
| ; 
.EXTRN LIBSSIGNAL, LIBSSTOP | 
; PSECT SUMMARY : 
; Name Bytes Attributes | ‘ 
: SGLOBALS 628 NOVEC, WRT, RD ,NOEXE,NOSHR, ‘LCL, REL, balla od Sat bo Ef $ 
; SPLITS 52 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; 
; SOWNS 20 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, path od PE bd 1 ‘ 
; SCODES 1066 NOVEC,NOWRT, ROD, XE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ‘ 
3 ls S 0 NOVEC,NOWRT,NORD ;NOEXE .NOSHR, LCL, S, CON,NOPIC,ALIGN(O) ° 
; Library Statistics ; 
3 ean Symbols -------- Pages Processing | ‘ 
: File Total Loaded Percent Mapped Time ‘ 
;  _$255$DUA28:CSYSLIBILIB.L32; 1 18619 25 0 1000 00:01.9 | ; 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$: INIDSK/OBJ=OBJ$: INIDSK MSRC$: INIDSK/UPDATE=(ENH$: INIDSK) | 
| 
Size: 1066 0°39°s + 1700 data bytes | 
Run Ti : | 
| 
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